home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
t_os
/
vnmac
/
vnmac.mac
< prev
next >
Wrap
Text File
|
1993-11-30
|
4KB
|
263 lines
'/* */
'/* Towns VNET V1.1 L20 用 マクロファイル */
'/* by [VNMAC V2.1 L10] */
'/* VNMAC by metal ( NAD01224 ) */
'/* */
CALL:1
CALL:2000
CALL:100
CALL:110
CALL:120
CALL:130
CALL:1000
CALL:1110
CALL:9000
EXIT:
1:
MESSAGE:"接続処理中 [VNMAC V2.1 L10]"
SEND:"ATZ^M"
SWITCH:
CASE:"OK",2
CASE:"◆",9
TIME:240,2
END:
2:
WAIT:1
SEND:"ATL0E1M1Q0V1X3\N3\V1\Q3\J0^M"
RECEIVE:"OK"
3:
WAIT:1
SEND:"ATDT03-5703-0222M^M"
SWITCH:
CASE:"CONNECT",4
CASE:"BUSY",3
CASE:"NO CARRIER",3
TIME:240,3
END:
4:
M-CLOSE:
MESSAGE:"ログイン処理中"
WAIT:2
SEND:"@P^M"
RECEIVE:"*"
5:
SEND:"C NIF^M"
SWITCH:
CASE:"COM",8
CASE:"*",5
TIME:240,5
END:
8:
RECEIVE:"--->"
SEND:"SVC^M"
RECEIVE:"--->"
SEND:"NIF00000^M"
RECEIVE:"--->"
CALL:6
RECEIVE:">"
SEND:"SET MENU OFF^M"
RECEIVE:">"
9:
M-CLOSE:
WAIT:1
RETURN:
6:
MESSAGE:"★パスワードを入力して下さい★"
RECEIVE:"^J"
M-CLOSE:
SWITCH:
CASE:"--->",6
CASE:"前回LOG",7
TIME:240,7
END:
7:
RETURN:
10:
SWITCH:
CASE:"more>",11
CASE:"E:終了",12
CASE:"FORUM>",13
CASE:"下さい◆",14
TIME:240,14
END:
11:
SEND:"^M"
JUMP:10
12:
RECEIVE:">"
SEND:"SET MENU OFF^M"
RECEIVE:"FORUM>"
13:
SEND:"SET PAGE OFF^M"
RECEIVE:"FORUM>"
RETURN:
14:
RECEIVE:">"
FALSE:
RETURN:
20:
SEND:"SEND OFF^M"
RECEIVE:"FORUM>"
RETURN:
30:
SEND:"UST^M"
RECEIVE:"FORUM>"
RETURN:
31:
SEND:"UST2^M"
RECEIVE:"FORUM>"
RETURN:
50:
SEND:"MES^M"
RECEIVE:">"
SEND:"MRE^M^M"
RECEIVE:"◆次頁はありません◆"
RECEIVE:">"
M-CLOSE:
RETURN:
100:
MESSAGE:"フォーラム処理中 : FTOWNS1"
SEND:"GO FTOWNS1^M"
CALL:10
IF-FALSE:100
CALL:20
CALL:31
CALL:50
RETURN:
110:
MESSAGE:"フォーラム処理中 : FTOWNS2"
SEND:"GO FTOWNS2^M"
CALL:10
IF-FALSE:110
CALL:31
CALL:50
RETURN:
120:
MESSAGE:"フォーラム処理中 : FFMHOB"
SEND:"GO FFMHOB^M"
CALL:10
IF-FALSE:120
CALL:50
RETURN:
130:
MESSAGE:"フォーラム処理中 : FFMAV"
SEND:"GO FFMAV^M"
CALL:10
IF-FALSE:130
CALL:50
RETURN:
3000:
SEND:"SET PAGE OFF^M"
RECEIVE:"HP>"
SEND:"REA NEW^M"
RECEIVE:"HP>"
RETURN:
1000:
SEND:"GO HP^M"
RECEIVE:">"
SEND:"1^M"
RECEIVE:":"
RECEIVE:":"
1100:
MESSAGE:"HP処理中 : AAA00001"
SEND:"AAA00001^M"
SWITCH:
CASE:"エラー◆",1100
CASE:"HP>",1102
CASE:":",1101
TIME:240,1101
END:
1101:
SEND:"PASS^M"
RECEIVE:"HP>"
1102:
CALL:3000
M-CLOSE:
RETURN:
1110:
MESSAGE:"HP処理中 : BBB00002"
SEND:"MOV BBB00002^M"
SWITCH:
CASE:"エラー◆",1110
CASE:"HP>",1112
CASE:":",1111
TIME:240,1111
END:
1111:
SEND:"WORD^M"
RECEIVE:"HP>"
1112:
CALL:3000
M-CLOSE:
RETURN:
2000:
SEND:"MCHK^M"
SWITCH:
CASE:"未読",2100
CASE:"います-",2290
CASE:"ません-",2290
TIME:240,2290
END:
2100:
SWITCH:
CASE:">",2105
CASE:">",2105
TIME:240,2105
END:
2105:
MESSAGE:"メール処理中"
SEND:"MAIL^M"
RECEIVE:"MAIL>"
SEND:"SET PAGE OFF^M"
RECEIVE:"MAIL>"
SEND:"REA NEW^M"
2110:
SWITCH:
CASE:"action:",2220
CASE:"MAIL>",2299
TIME:300,2299
END:
2220:
SEND:"SAV^M"
JUMP:2110
2290:
SWITCH:
CASE:">",2299
CASE:">",2299
TIME:240,2299
END:
2299:
M-CLOSE:
RETURN:
9000:
SEND:"OFF^M"
RECEIVE:"*"
SEND:"OFF^M"
RECEIVE:"NO CARRIER"
RETURN: